#!/src/bin/perl -w
print "Saisi la temperature aujourd'hui :";
$temperatur = <STDIN>;
if ($temperatur)
{
	if($temperatur > 30)
	{
		print "trop chaud!";
	}
	elsif($temperatur < 20)
	{	
		print "trop froid!";
	}
	else
	{
		print "impeccable!";
	}
}